COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "SCRAW"
C00003 ENDMK
C⊗;
BEGIN "SCRAW"
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;
INTEGER I;
DEFINE H=30,W=30,SS=1;

DDINIT;
SCREEN(0,0,W,H); INVEN;
FOR I←0 STEP SS UNTIL W-1 DO RECTAN(I,0,I+1,H);
FOR I←0 STEP SS UNTIL H-1 DO RECTAN(0,I,W,I+1);

FOR I←0 STEP 1 UNTIL '37 DO DPYUP(I);

END;